home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare31 / inet / tcp / server.cm_ / server
Encoding:
Text File  |  1995-07-25  |  1.2 KB  |  56 lines
  1. #
  2. #  Trumpet Winsock 3.0 Server.cmd
  3. #
  4. #  Copyright (C) 1996 distributed by
  5. #  Trumpet Software International Pty Ltd 
  6. #  A.C.N 070065860
  7. #  Under Licence from the Copyright owners.
  8. #  All Rights Reserved.
  9. # 
  10. # 
  11. $promptuser = "sername:"
  12. $promptpass = "ssword:"
  13. $promptcmd  = ">"
  14. $slipcmd    = "s"
  15. $slipready  = ""
  16. $pppcmd     = "p"
  17. $pppready   = ""
  18. %getaddr    = 0
  19. $addrprompt = ""
  20. %ok = [load $promptuser]
  21. %ok = %ok & [load $promptpass]
  22. %ok = %ok & [load $promptcmd]
  23. %ok = %ok & [load $slipcmd]
  24. %ok = %ok & [load $slipready]
  25. %ok = %ok & [load $pppcmd]
  26. %ok = %ok & [load $pppready]
  27. %ok = %ok & [load %getaddr]
  28. %ok = %ok & [load $addrprompt]
  29. if (param(1) <> "preload") | ! %ok
  30.   dialog "profile.res","server",%ok
  31.     edit $promptuser,101
  32.     edit $promptpass,102
  33.     edit $promptcmd,103
  34.     edit $slipcmd,104
  35.     edit $slipready,105
  36.     edit $pppcmd,106
  37.     edit $pppready,107
  38.     toggle %getaddr,108
  39.     edit $addrprompt,109
  40.     help "trumpwsk.hlp",999,"server profile"
  41.   end
  42.   if %ok
  43.     save $promptuser
  44.     save $promptpass
  45.     save $promptcmd
  46.     save $slipcmd
  47.     save $slipready
  48.     save $pppcmd
  49.     save $pppready
  50.     save %getaddr
  51.     save $addrprompt
  52.   else
  53.     exit
  54.   end
  55. end
  56.